(cancel-debug-on-entry): Don't cons uselessly.

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 8c81dbd0bd8bb6195492a78b6b5d950c4f68d67b..a0165a8d1980df809f9d462bb1cf4af47f0cdc6a 100644 (file)
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -633,11 +633,7 @@ If argument is nil or an empty string, cancel for all functions."
   (interactive
    (list (let ((name
                (completing-read "Cancel debug on entry (to function): "
-                                ;; Make an "alist" of the functions
-                                ;; that now have debug on entry.
-                                (mapcar 'list
-                                        (mapcar 'symbol-name
-                                                debug-function-list))
+                                (mapcar 'symbol-name debug-function-list)
                                 nil t nil)))
           (if name (intern name)))))
   (debugger-reenable)